var s,n,i,r:integer;
begin
writeln('kol-vo el-tov cepi');
readln(n);
writeln('vvedite ',n,' soprotivlenij:');
for i:=1 to n do
begin
readln(r);
s:=s+r;
end;
writeln('obshee soprotivlenie=',s);
readln;
end.
var s,n,i,r:integer;
begin
writeln('kol-vo el-tov cepi');
readln(n);
writeln('vvedite ',n,' soprotivlenij:');
for i:=1 to n do
begin
readln(r);
s:=s+r;
end;
writeln('obshee soprotivlenie=',s);
readln;
end.